home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / ISWHITE.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-15  |  149b  |  9 lines

  1. FUNCTION IsWhite(Ch : Char) : Boolean;
  2.  
  3. CONST
  4.   Whitespace : SET OF Char = [#8,#10,#12,#13,' '];
  5.  
  6. BEGIN
  7.   IsWhite :=  Ch IN Whitespace
  8. END;
  9.